/ Komputer for Alle 2001 #9 / CD 9 (Black) - 2001.iso / Pinball / System / UBrowser.u / UBrowserServerList_UBrowserUpdateServerWindow_ScriptText.TextBuffer

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 74 24 63 6c 61 73 73 20 |........|t$class |
|00000010| 55 42 72 6f 77 73 65 72 | 55 70 64 61 74 65 53 65 |UBrowser|UpdateSe|
|00000020| 72 76 65 72 57 69 6e 64 | 6f 77 20 65 78 70 61 6e |rverWind|ow expan|
|00000030| 64 73 20 55 57 69 6e 64 | 6f 77 50 61 67 65 57 69 |ds UWind|owPageWi|
|00000040| 6e 64 6f 77 3b 0d 0a 0d | 0a 76 61 72 20 55 42 72 |ndow;...|.var UBr|
|00000050| 6f 77 73 65 72 55 70 64 | 61 74 65 53 65 72 76 65 |owserUpd|ateServe|
|00000060| 72 4c 69 6e 6b 20 4c 69 | 6e 6b 3b 0d 0a 76 61 72 |rLink Li|nk;..var|
|00000070| 20 55 42 72 6f 77 73 65 | 72 55 70 64 61 74 65 53 | UBrowse|rUpdateS|
|00000080| 65 72 76 65 72 54 65 78 | 74 41 72 65 61 20 54 65 |erverTex|tArea Te|
|00000090| 78 74 41 72 65 61 3b 0d | 0a 0d 0a 76 61 72 20 6c |xtArea;.|...var l|
|000000a0| 6f 63 61 6c 69 7a 65 64 | 20 73 74 72 69 6e 67 20 |ocalized| string |
|000000b0| 51 75 65 72 79 54 65 78 | 74 3b 0d 0a 76 61 72 20 |QueryTex|t;..var |
|000000c0| 6c 6f 63 61 6c 69 7a 65 | 64 20 73 74 72 69 6e 67 |localize|d string|
|000000d0| 20 46 61 69 6c 75 72 65 | 54 65 78 74 3b 0d 0a 76 | Failure|Text;..v|
|000000e0| 61 72 20 63 6c 61 73 73 | 3c 55 42 72 6f 77 73 65 |ar class|<UBrowse|
|000000f0| 72 55 70 64 61 74 65 53 | 65 72 76 65 72 4c 69 6e |rUpdateS|erverLin|
|00000100| 6b 3e 20 4c 69 6e 6b 43 | 6c 61 73 73 3b 0d 0a 76 |k> LinkC|lass;..v|
|00000110| 61 72 20 63 6c 61 73 73 | 3c 55 42 72 6f 77 73 65 |ar class|<UBrowse|
|00000120| 72 55 70 64 61 74 65 53 | 65 72 76 65 72 54 65 78 |rUpdateS|erverTex|
|00000130| 74 41 72 65 61 3e 20 54 | 65 78 74 41 72 65 61 43 |tArea> T|extAreaC|
|00000140| 6c 61 73 73 3b 0d 0a 76 | 61 72 20 62 6f 6f 6c 20 |lass;..v|ar bool |
|00000150| 62 47 6f 74 4d 4f 54 44 | 3b 0d 0a 76 61 72 20 73 |bGotMOTD|;..var s|
|00000160| 74 72 69 6e 67 20 53 74 | 61 74 75 73 42 61 72 54 |tring St|atusBarT|
|00000170| 65 78 74 3b 0d 0a 76 61 | 72 20 62 6f 6f 6c 20 62 |ext;..va|r bool b|
|00000180| 48 61 64 49 6e 69 74 69 | 61 6c 51 75 65 72 79 3b |HadIniti|alQuery;|
|00000190| 0d 0a 76 61 72 20 69 6e | 74 20 54 72 69 65 73 3b |..var in|t Tries;|
|000001a0| 0d 0a 76 61 72 20 69 6e | 74 20 4e 75 6d 54 72 69 |..var in|t NumTri|
|000001b0| 65 73 3b 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |es;....f|unction |
|000001c0| 43 72 65 61 74 65 64 28 | 29 0d 0a 7b 0d 0a 09 53 |Created(|)..{...S|
|000001d0| 75 70 65 72 2e 43 72 65 | 61 74 65 64 28 29 3b 0d |uper.Cre|ated();.|
|000001e0| 0a 09 54 65 78 74 41 72 | 65 61 20 3d 20 55 42 72 |..TextAr|ea = UBr|
|000001f0| 6f 77 73 65 72 55 70 64 | 61 74 65 53 65 72 76 65 |owserUpd|ateServe|
|00000200| 72 54 65 78 74 41 72 65 | 61 28 43 72 65 61 74 65 |rTextAre|a(Create|
|00000210| 43 6f 6e 74 72 6f 6c 28 | 54 65 78 74 41 72 65 61 |Control(|TextArea|
|00000220| 43 6c 61 73 73 2c 20 30 | 2c 20 30 2c 20 57 69 6e |Class, 0|, 0, Win|
|00000230| 57 69 64 74 68 2c 20 57 | 69 6e 48 65 69 67 68 74 |Width, W|inHeight|
|00000240| 2c 20 53 65 6c 66 29 29 | 3b 0d 0a 0d 0a 09 53 65 |, Self))|;.....Se|
|00000250| 74 41 63 63 65 70 74 73 | 46 6f 63 75 73 28 29 3b |tAccepts|Focus();|
|00000260| 0d 0a 7d 0d 0a 0d 0a 66 | 75 6e 63 74 69 6f 6e 20 |..}....f|unction |
|00000270| 51 75 65 72 79 28 29 0d | 0a 7b 0d 0a 09 62 48 61 |Query().|.{...bHa|
|00000280| 64 49 6e 69 74 69 61 6c | 51 75 65 72 79 20 3d 20 |dInitial|Query = |
|00000290| 54 72 75 65 3b 0d 0a 09 | 53 74 61 74 75 73 42 61 |True;...|StatusBa|
|000002a0| 72 54 65 78 74 20 3d 20 | 51 75 65 72 79 54 65 78 |rText = |QueryTex|
|000002b0| 74 3b 0d 0a 09 69 66 28 | 4c 69 6e 6b 20 21 3d 20 |t;...if(|Link != |
|000002c0| 4e 6f 6e 65 29 0d 0a 09 | 7b 0d 0a 09 09 4c 69 6e |None)...|{....Lin|
|000002d0| 6b 2e 55 70 64 61 74 65 | 57 69 6e 64 6f 77 20 3d |k.Update|Window =|
|000002e0| 20 4e 6f 6e 65 3b 0d 0a | 09 09 4c 69 6e 6b 2e 44 | None;..|..Link.D|
|000002f0| 65 73 74 72 6f 79 28 29 | 3b 0d 0a 09 7d 0d 0a 09 |estroy()|;...}...|
|00000300| 4c 69 6e 6b 20 3d 20 47 | 65 74 45 6e 74 72 79 4c |Link = G|etEntryL|
|00000310| 65 76 65 6c 28 29 2e 53 | 70 61 77 6e 28 4c 69 6e |evel().S|pawn(Lin|
|00000320| 6b 43 6c 61 73 73 29 3b | 0d 0a 09 4c 69 6e 6b 2e |kClass);|...Link.|
|00000330| 55 70 64 61 74 65 57 69 | 6e 64 6f 77 20 3d 20 53 |UpdateWi|ndow = S|
|00000340| 65 6c 66 3b 0d 0a 09 4c | 69 6e 6b 2e 51 75 65 72 |elf;...L|ink.Quer|
|00000350| 79 55 70 64 61 74 65 53 | 65 72 76 65 72 28 29 3b |yUpdateS|erver();|
|00000360| 0d 0a 09 62 47 6f 74 4d | 4f 54 44 20 3d 20 46 61 |...bGotM|OTD = Fa|
|00000370| 6c 73 65 3b 0d 0a 7d 0d | 0a 0d 0a 66 75 6e 63 74 |lse;..}.|...funct|
|00000380| 69 6f 6e 20 42 65 66 6f | 72 65 50 61 69 6e 74 28 |ion Befo|rePaint(|
|00000390| 43 61 6e 76 61 73 20 43 | 2c 20 66 6c 6f 61 74 20 |Canvas C|, float |
|000003a0| 58 2c 20 66 6c 6f 61 74 | 20 59 29 0d 0a 7b 0d 0a |X, float| Y)..{..|
|000003b0| 09 6c 6f 63 61 6c 20 55 | 42 72 6f 77 73 65 72 4d |.local U|BrowserM|
|000003c0| 61 69 6e 57 69 6e 64 6f | 77 20 57 3b 0d 0a 0d 0a |ainWindo|w W;....|
|000003d0| 09 69 66 28 21 62 48 61 | 64 49 6e 69 74 69 61 6c |.if(!bHa|dInitial|
|000003e0| 51 75 65 72 79 29 0d 0a | 09 09 51 75 65 72 79 28 |Query)..|..Query(|
|000003f0| 29 3b 0d 0a 0d 0a 09 53 | 75 70 65 72 2e 42 65 66 |);.....S|uper.Bef|
|00000400| 6f 72 65 50 61 69 6e 74 | 28 43 2c 20 58 2c 20 59 |orePaint|(C, X, Y|
|00000410| 29 3b 0d 0a 09 54 65 78 | 74 41 72 65 61 2e 53 65 |);...Tex|tArea.Se|
|00000420| 74 53 69 7a 65 28 57 69 | 6e 57 69 64 74 68 2c 20 |tSize(Wi|nWidth, |
|00000430| 57 69 6e 48 65 69 67 68 | 74 29 3b 0d 0a 0d 0a 09 |WinHeigh|t);.....|
|00000440| 57 20 3d 20 55 42 72 6f | 77 73 65 72 4d 61 69 6e |W = UBro|wserMain|
|00000450| 57 69 6e 64 6f 77 28 47 | 65 74 50 61 72 65 6e 74 |Window(G|etParent|
|00000460| 28 63 6c 61 73 73 27 55 | 42 72 6f 77 73 65 72 4d |(class'U|BrowserM|
|00000470| 61 69 6e 57 69 6e 64 6f | 77 27 29 29 3b 0d 0a 09 |ainWindo|w'));...|
|00000480| 69 66 28 53 74 61 74 75 | 73 42 61 72 54 65 78 74 |if(Statu|sBarText|
|00000490| 20 3d 3d 20 22 22 29 0d | 0a 09 09 57 2e 44 65 66 | == "").|...W.Def|
|000004a0| 61 75 6c 74 53 74 61 74 | 75 73 42 61 72 54 65 78 |aultStat|usBarTex|
|000004b0| 74 28 54 65 78 74 41 72 | 65 61 2e 53 74 61 74 75 |t(TextAr|ea.Statu|
|000004c0| 73 55 52 4c 29 3b 0d 0a | 09 65 6c 73 65 0d 0a 09 |sURL);..|.else...|
|000004d0| 09 57 2e 44 65 66 61 75 | 6c 74 53 74 61 74 75 73 |.W.Defau|ltStatus|
|000004e0| 42 61 72 54 65 78 74 28 | 53 74 61 74 75 73 42 61 |BarText(|StatusBa|
|000004f0| 72 54 65 78 74 29 3b 0d | 0a 7d 0d 0a 0d 0a 66 75 |rText);.|.}....fu|
|00000500| 6e 63 74 69 6f 6e 20 50 | 61 69 6e 74 28 43 61 6e |nction P|aint(Can|
|00000510| 76 61 73 20 43 2c 20 66 | 6c 6f 61 74 20 58 2c 20 |vas C, f|loat X, |
|00000520| 66 6c 6f 61 74 20 59 29 | 0d 0a 7b 0d 0a 09 44 72 |float Y)|..{...Dr|
|00000530| 61 77 53 74 72 65 74 63 | 68 65 64 54 65 78 74 75 |awStretc|hedTextu|
|00000540| 72 65 28 43 2c 20 30 2c | 20 30 2c 20 57 69 6e 57 |re(C, 0,| 0, WinW|
|00000550| 69 64 74 68 2c 20 57 69 | 6e 48 65 69 67 68 74 2c |idth, Wi|nHeight,|
|00000560| 20 54 65 78 74 75 72 65 | 27 42 6c 61 63 6b 54 65 | Texture|'BlackTe|
|00000570| 78 74 75 72 65 27 29 3b | 0d 0a 7d 0d 0a 0d 0a 66 |xture');|..}....f|
|00000580| 75 6e 63 74 69 6f 6e 20 | 53 65 74 4d 4f 54 44 28 |unction |SetMOTD(|
|00000590| 73 74 72 69 6e 67 20 4d | 4f 54 44 29 0d 0a 7b 0d |string M|OTD)..{.|
|000005a0| 0a 09 54 65 78 74 41 72 | 65 61 2e 53 65 74 48 54 |..TextAr|ea.SetHT|
|000005b0| 4d 4c 28 4d 4f 54 44 29 | 3b 0d 0a 7d 0d 0a 0d 0a |ML(MOTD)|;..}....|
|000005c0| 66 75 6e 63 74 69 6f 6e | 20 53 65 74 4d 61 73 74 |function| SetMast|
|000005d0| 65 72 53 65 72 76 65 72 | 28 73 74 72 69 6e 67 20 |erServer|(string |
|000005e0| 56 61 6c 75 65 29 0d 0a | 7b 0d 0a 09 52 65 70 6c |Value)..|{...Repl|
|000005f0| 61 63 65 54 65 78 74 28 | 56 61 6c 75 65 2c 20 43 |aceText(|Value, C|
|00000600| 68 72 28 31 30 29 2c 20 | 22 22 29 3b 0d 0a 09 69 |hr(10), |"");...i|
|00000610| 66 28 56 61 6c 75 65 20 | 21 3d 20 22 22 29 0d 0a |f(Value |!= "")..|
|00000620| 09 09 55 42 72 6f 77 73 | 65 72 4d 61 69 6e 43 6c |..UBrows|erMainCl|
|00000630| 69 65 6e 74 57 69 6e 64 | 6f 77 28 55 42 72 6f 77 |ientWind|ow(UBrow|
|00000640| 73 65 72 4d 61 69 6e 57 | 69 6e 64 6f 77 28 47 65 |serMainW|indow(Ge|
|00000650| 74 50 61 72 65 6e 74 28 | 63 6c 61 73 73 27 55 42 |tParent(|class'UB|
|00000660| 72 6f 77 73 65 72 4d 61 | 69 6e 57 69 6e 64 6f 77 |rowserMa|inWindow|
|00000670| 27 29 29 2e 43 6c 69 65 | 6e 74 41 72 65 61 29 2e |')).Clie|ntArea).|
|00000680| 4e 65 77 4d 61 73 74 65 | 72 53 65 72 76 65 72 28 |NewMaste|rServer(|
|00000690| 56 61 6c 75 65 29 3b 0d | 0a 7d 0d 0a 0d 0a 66 75 |Value);.|.}....fu|
|000006a0| 6e 63 74 69 6f 6e 20 53 | 65 74 49 52 43 53 65 72 |nction S|etIRCSer|
|000006b0| 76 65 72 28 73 74 72 69 | 6e 67 20 56 61 6c 75 65 |ver(stri|ng Value|
|000006c0| 29 0d 0a 7b 0d 0a 09 53 | 74 72 69 70 43 52 4c 46 |)..{...S|tripCRLF|
|000006d0| 28 56 61 6c 75 65 29 3b | 0d 0a 0d 0a 09 69 66 28 |(Value);|.....if(|
|000006e0| 56 61 6c 75 65 20 21 3d | 20 22 22 29 0d 0a 09 09 |Value !=| "")....|
|000006f0| 55 42 72 6f 77 73 65 72 | 4d 61 69 6e 43 6c 69 65 |UBrowser|MainClie|
|00000700| 6e 74 57 69 6e 64 6f 77 | 28 55 42 72 6f 77 73 65 |ntWindow|(UBrowse|
|00000710| 72 4d 61 69 6e 57 69 6e | 64 6f 77 28 47 65 74 50 |rMainWin|dow(GetP|
|00000720| 61 72 65 6e 74 28 63 6c | 61 73 73 27 55 42 72 6f |arent(cl|ass'UBro|
|00000730| 77 73 65 72 4d 61 69 6e | 57 69 6e 64 6f 77 27 29 |wserMain|Window')|
|00000740| 29 2e 43 6c 69 65 6e 74 | 41 72 65 61 29 2e 4e 65 |).Client|Area).Ne|
|00000750| 77 49 52 43 53 65 72 76 | 65 72 28 56 61 6c 75 65 |wIRCServ|er(Value|
|00000760| 29 3b 0d 0a 7d 0d 0a 0d | 0a 66 75 6e 63 74 69 6f |);..}...|.functio|
|00000770| 6e 20 46 61 69 6c 75 72 | 65 28 29 0d 0a 7b 0d 0a |n Failur|e()..{..|
|00000780| 09 4c 69 6e 6b 2e 55 70 | 64 61 74 65 57 69 6e 64 |.Link.Up|dateWind|
|00000790| 6f 77 20 3d 20 4e 6f 6e | 65 3b 0d 0a 09 4c 69 6e |ow = Non|e;...Lin|
|000007a0| 6b 2e 44 65 73 74 72 6f | 79 28 29 3b 0d 0a 09 4c |k.Destro|y();...L|
|000007b0| 69 6e 6b 20 3d 20 4e 6f | 6e 65 3b 0d 0a 09 54 72 |ink = No|ne;...Tr|
|000007c0| 69 65 73 2b 2b 3b 0d 0a | 09 69 66 28 54 72 69 65 |ies++;..|.if(Trie|
|000007d0| 73 20 3c 20 4e 75 6d 54 | 72 69 65 73 29 0d 0a 09 |s < NumT|ries)...|
|000007e0| 7b 0d 0a 09 09 51 75 65 | 72 79 28 29 3b 0d 0a 09 |{....Que|ry();...|
|000007f0| 09 72 65 74 75 72 6e 3b | 0d 0a 09 7d 0d 0a 0d 0a |.return;|...}....|
|00000800| 09 53 74 61 74 75 73 42 | 61 72 54 65 78 74 20 3d |.StatusB|arText =|
|00000810| 20 46 61 69 6c 75 72 65 | 54 65 78 74 3b 0d 0a 09 | Failure|Text;...|
|00000820| 54 72 69 65 73 20 3d 20 | 30 3b 0d 0a 7d 0d 0a 0d |Tries = |0;..}...|
|00000830| 0a 66 75 6e 63 74 69 6f | 6e 20 53 75 63 63 65 73 |.functio|n Succes|
|00000840| 73 28 29 0d 0a 7b 0d 0a | 09 53 74 61 74 75 73 42 |s()..{..|.StatusB|
|00000850| 61 72 54 65 78 74 20 3d | 20 22 22 3b 0d 0a 0d 0a |arText =| "";....|
|00000860| 09 4c 69 6e 6b 2e 55 70 | 64 61 74 65 57 69 6e 64 |.Link.Up|dateWind|
|00000870| 6f 77 20 3d 20 4e 6f 6e | 65 3b 0d 0a 09 4c 69 6e |ow = Non|e;...Lin|
|00000880| 6b 2e 44 65 73 74 72 6f | 79 28 29 3b 0d 0a 09 4c |k.Destro|y();...L|
|00000890| 69 6e 6b 20 3d 20 4e 6f | 6e 65 3b 0d 0a 09 54 72 |ink = No|ne;...Tr|
|000008a0| 69 65 73 20 3d 20 30 3b | 0d 0a 7d 0d 0a 0d 0a 66 |ies = 0;|..}....f|
|000008b0| 75 6e 63 74 69 6f 6e 20 | 4b 65 79 44 6f 77 6e 28 |unction |KeyDown(|
|000008c0| 69 6e 74 20 4b 65 79 2c | 20 66 6c 6f 61 74 20 58 |int Key,| float X|
|000008d0| 2c 20 66 6c 6f 61 74 20 | 59 29 20 0d 0a 7b 0d 0a |, float |Y) ..{..|
|000008e0| 09 73 77 69 74 63 68 28 | 4b 65 79 29 0d 0a 09 7b |.switch(|Key)...{|
|000008f0| 0d 0a 09 63 61 73 65 20 | 30 78 37 34 3a 20 2f 2f |...case |0x74: //|
|00000900| 20 49 4b 5f 46 35 3b 0d | 0a 09 09 54 65 78 74 41 | IK_F5;.|...TextA|
|00000910| 72 65 61 2e 43 6c 65 61 | 72 28 29 3b 0d 0a 09 09 |rea.Clea|r();....|
|00000920| 51 75 65 72 79 28 29 3b | 0d 0a 09 09 62 72 65 61 |Query();|....brea|
|00000930| 6b 3b 0d 0a 09 7d 0d 0a | 7d 0d 0a 0d 0a 00       |k;...}..|}.....  |
+--------+-------------------------+-------------------------+--------+--------+